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SECTION TG INITIATE OPERATION ON 800-3 T003 —- 

ENTER WITH THE FOLLOWING SEQUENCE: 

ENI -.*.REQUEST,XI .. TVRE AO OR TVWRITE 

ENI RETURN,X2 

ENI PSA POINTER,X3 

ENQ.'.WORD.COUNT 

ENA FWA 


a . 





—.8 2. 

83 

—.st..UJP- 

* 

** ** **** ** ****** * 

-TV IN IT.-.- 

******* t*** 

................... * ........._...^.. 

* 

** ** # ** * **** * ** * * ** *-¥*-*?*•¥> ^ V ■* ****** 

o . 

0 0 0 G 0 

0 00 0 1 

77730000 

13000002 



85 

86 

87 

T VINIT VFD 

SHAQ 

A 12/DINT 

2 



... 000 0 2 

0 0 Q 0 3 
-...0 0004. 

.WOOD. W5T . 

53040000 
.46 nQ.Q ngn. 

P.. 

.£ .. 


.88. 

89 

_ -9-0 . 

SCHA 

AQA 

____SCHA_ 

.FWA. 

..!_ ha___ 

ADO WORD COUNT 

o r.; 

00005 

0 00 06 
. f l fi n ;i ~7 

53100000 
42 000240 

,0 ,17 7 7777 

P 

v 

00050 Q 

91 

92 

TIA 

SACH 

...,....,.. .. ....... ,- ...... 1, .. n ft ... 

XI 

LWA 

REQUEST CODE TO A 

o _. 

..■.u U U li / 

0 0010 

0 0011 

£ (J O / / ( ( f 

12077760 

05600001 

A 


. y o . 

94 

95 

l o A 

SHA 

ASG 

t'cRM I NAL $ PS A 
-15 

1 

LO A D.THE.iERMINAL.NUMBER . . 

SKIP IF NOT THE PHANTOM 


.”.0 0012. 

14677777 

.x. 


.96 

. ENA - 

TVBLOCK 



0 0013 

00014. 

00015 
0 0016 
0 0017 
00020 
00021 
00022 
00023 
00024. 

00025 
00026 
00027 
00030 
00031 
00032 
0 00 34 
00036 
00037 
0 0040 
00041 
00042 
GO 0 43 


14100007 

2110 0 3 37 .E. 

03600017 P 
02500014 P 
0 3 4U'0U'l"6~~f > “ 
16577777 
53040 0Q0 

■44000025.P 

14600014 
J31-0-0.0-2 7-0 .R. 

1560 GOOQ 
42 00 1470 P 
44 00 0 0 3? P 
44000241 P 

5370080'0"~ . 

1460 0022 

1460.0 0 27 . 

14300004 
77000000 

0 2 70 00 3 7.P. 

05300001 
01000062 P 
X430TS'0'Z4. 


00316.0 


T VI 0 


TVIOCON 


ENI 

.LDQ . 

AQJ,GE 
I JO 

AQJjEQ 

XOQ,S 

AQA 

”SW‘A 

ENA 

UJP -- 

XQA 

.S ACH 

SWA 

SWA 

TAT. 

ISSUE 

.ISSUE 

ENI 

CON 

TOO.— 

ISG 

UJP 

“ENT- 



00044 

.-. 00045. 

77511377 

. -1..4-.60.0-0-05- 


121 

..122 . 


GILO 

.ENA.. 

o 

00046 

0 0047 

0 005 0 

0 0051 
00052 

77 10 0 010 
02700044 

P 

123 

124 

i 9 d 


SEL 

IJD 

, yen 

Cl.. 

u y u o u o u a 

04400000 
0100 0 Q5G 

JR... 

. ' X £ O' ■ 

12 6 

127 

FWA 

V r u 

VFD 

UJP 


.0 0 053. 

. 0120'013 00. 


.....~~.12 8 “ 


g-j-p- 


7 , XI 

TVTERMIN,X1. 

*+2 

*-2,XI 

—_ 

777778 

JYIQ- . .~.~ 

TVI03IT+TVI0XBIT 
CON--- 


IMPURE FORM 

■■UTGFtAG————.. SET.T 

TVIOCON SAVE 

RESETCON SAVE 

.X3.* . “ CQNNE 

EOF SELEC 

RSTX NT.._._....RE LEA 

4 , X3 

IMPURE,IQ 

. 

1 X 3 

T^INTA IGNQR 

2 0, X3-“-•; —— 

3 778 

-.I-VBEARE.A/2^.4.--.-.-.RELOC 

RESET,SELECT 

* -3 x 3 

-#6/4mr 

A 3/10,04/11,Cl 7/IMPURE 
*-2 REJEC 

“0 7X2 . ^ EXIT 


8 EQUIPMENTS / CHANNEL 


GET THE PROPER UNIT NUMBER 
S ATE T H E O NTT.N'O M BE R. 


FORM THE CONNECT CODE 

SET.THE.FLAG.—.. .-.-.... 

SAVE THE CONNECT CODE FOR LATER 
SAVE FOR RESETTING THE SCREEN 

CONNECT.CODE.TO.X3.. 

SELECT ENC CP OPERATION INTERRUPT 
R E L E A S E.ST A TIC N I NT E R R U PT.. 


IGNORE THE FINK IF NO CONNECT 


REL-0 C A T-XON.FOR.THE.I / O. 


TV'S- .INSTRUCTION. 

CH I NT WITH WC CONTROL 
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00054 

00055. 

00056 
00057 
0 0060 
0 0 061 


.u 0 0 54 

53300000 
53600000 
53 10 0 0 00 
12077774 
53500000 
77730000 


13 0 

131 

132 

133 

134 
.135 

136 


T VINT 


EQ'J 

TIA 

TAI 

TIA 

SHA 

'-TAI- 

VFD 


X 3 

.X-2-.- 

XI 
-3 

X 1 

A12/DINT 


ENTER HERE CN DISPLAY INTERRUPTS 
RETURN ADDRESS TO X2 

INTERRUPTCODETO(A) 

EQUIPHENTNUMEERBACKTO XI 


00062 2010 0 347 P 137 T VI NT A LOA 

i STATUS,XI LO AC 

) THE STATUS WORD 

00063 17600005 138 ANA 

00064 03100115 P 139 AZJ 

—.-.00065. 1460 0003..-...140.-.-.-.-.-. • ENA 

i EXITQITS DO WE HAVE ANY UNFINISHED 

1»NE DSNS BUSINESS JUMP IF SO 

l-.S INTBIT + SINTX8IT ^ ENTER THE PROPER BITS — ... 


00066 01000270 P 


00067 


0 0 067 
14300004 


141 

142 

"'1*4-3- 

144 


3 T A T TNT— 


UJP 

-E-QU- 

ENI 


CON 


O . 

00070 

44000071 

p 

145 


SWA 

¥+i 





.00071. 

00072 

0 00 73 

77000000 

0 2 700071 

.. n . 5.3 0 0 Of] 1 .. 

p 

.146... 

147 

. 14 A. 


CON 

IJO 

.TC C.... 

.I MPURE, IQ. 

*-l t X3 

. i._. vs......... 

CONNECT TC THE PROPER CONTROLLER 



o 

00074 

00075 

01000275 

77511377 

p 

.. Ju ■‘"t u... 

14 5 

15 0 


UJP 

GILO 

TVCON 

377B 

IGNORE FAKE INTERRUPTS 



o 

0 0 0 76 
00077 
00100 

'1 4*6 0 0 0 25~ 
53140000 
44000112 

p 

161 .- 

152 

153 


ENA 

AIA 

SWA 

C SBU FF * .... 

XI 

3TATFWA 

COMPUiE THh AtQRESS OF THE 

PROPER CONTROL STATEMENT BUFFER 

AND SAVE IT . 




0 0101 
00102 
..o 010 3 

53700000 
15600001 
44.00 a 111 ... 

,.p. 

154 

155 

..1-5.6... 


TAI 

INA 

..swA . .... 

X 3 

1 

. - S-TATL WA ..... 

BUFFER ADDRESS TC X3 



O . ... 

00104 

00105 

14100012 

11377770 

77776 Q 

157 

158 


ENI 

ECHA 

10,XI 

3777708 

GENERATE AN IMPCSSABLE UNIT 

...UJ %a, f** 1 , .,,,,.. ., vv . ,, . , . *********** .* ,/ , v ,. V/> ,. ,,,,, „ w ,,., , v w v „ v , ^ „ w r ^^ „ w****#*^*. 



o 

0 010 o 

0 0107 
00110 

40 oO 0 0 0 Q 
77100022 
02500105 

P.... 

" 159 . 

160 

161 


..ST A 

SEL 

TJD 

“0 , X 3 

EOF, SELECT 
*~3 , XI 

NUMBER 

PERSIST FOR A WHILE 




00111 

00112 

74G0 COITO . 

00400000 

nnii ? 

P 

16 2 

...... 16 3 

statlwa 

...... STATFWA 

INPW,INT 

FOll - ....... 

.wiwtmETrHiPuifE. 

. STATI WA + 1 ...- 




O . 

00113 

00114 

01000111 

01200000 

. .I - '-. . . .......... 

p 

164 

165 

..«- n i l .n H * 

UJP 

UJP 

-.-1 M 1.U. M r\ .» JL.. .. .. 

* -2 

0 ,X2 

REJECT 

EXIT 
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00115 
00116 
00117 
00120 
0 0121 
00122 
00123 
00124 
00125 
0 0126 
00127 
00130 
0 0131 
00132 
00133 
00134 
00135 
00136 

0 0137 
0 0140 
00141 
00142 

00143. 

0 0144 
00145 
00146 
0014? 

0 015 0 
00151 
0 015 2 
00153 
00154 
00155 

0 0156 
0 015 7 
00160 
00161 
00162 
00163 
.0 0164- 
00165 
00166 

00167 
00170 
"03X71” 
00172 
00173 
00174 
0 017 5 
00176 
00177 
0 020 0 
00201 
0 0202 
.00203. 


.U0115.P' 

17600001 
03000275 P 
20100325 P 
13077733 

“0550 0015. 

0550 0 000 
01000275 P 

22401564.P 

03700275 P 

.13 000 030. 

30100337 P 
4720 0216 P 
47 10 01 44 P 
1470U012 X 
00100136 P 

.03 50G136.P 

14600000 

53-50 0000.. 

00137 P 
20177777 X 
5370 0 000 —• 
03000144 P 
14477777 X 

00777777.X 

14200000 

-.2-0-2-0-0-325.PL 

17 60 7777 
04601414 
01000156 P 
05300001 
01000216 P 
20077777X 
35377777 X 

-01000214.P 

00156 P 
1760 7700 
14701400 
03400167 P 
04300000 

'9TB~GTJ2T2 . ~P” 

04100132 X 

-0100-0216.P- 

1410 0 BOO 
01000137 P 

.-0 0167 P 

0530 00-01 
01000204 P 
1177777 7 
00700143 X 

2 0 3 777 77 . X.. 

03100176 P 
14677777 X 
40300173 X 
20 377777 X 
03300212 P 

14 60 0175 .X 

00 777777 X 
:...ai-0.0-.G-212.-.P. 


003350 


lo 7 
168 

-16-9—.— 

170 

171 

172 .. 

17 3 

174 

175 

176 

477.:. 

17 8 
179 

“±6"0“ — 

180+001 

180+002 

180+003 

180+004 

184.-. 


DSNS02 


DSNPSA 


QSNFM 


DSNFMQ2 


EOT. 

ANA 

AZJ,EQ 
LD A 
SHAQ 
QSG , S 
QOT, S 
UJP 
LACH 
AQJ,.LT 

SHAQ. 

ADA 

3TI 

'Sri— 

ENQ 

SJ1 

AQJ,NE 

ENA 

.TAX- 

EGU 

LDA 

TAX'-- 

AZJ,EQ 
ENA, S 

.RTJ.. 

ENI 

LDA . 

ANA 

ASE 

tJJP— 
ISG 
UJP 
LDA 
SS A 

UJP. 

EQU 

ANA 

-ENQ 

AQJ,EQ 

ISE 

UJP . — 

ISE 

UJP-- 

ENI 

UJP 

EGU — 

ISG 

UJP 

VFD-- 

RTJ 

-LILA__ 

AZJ,NE 

ENA 

-S-T-A— 

LDA 

AZJ,LT 
ENA . 

RTJ 

UJP_ 


0 0204 
00205 
0 0 2 0 6 
0 0207 
00210 
0 0211 

00212 
0 0213 
00214 
0 0 2 15 

00216 

.0.0217.. 


00204 P 
-142G“Q'216-P“ 

00777777 X 
14677777 X 

40 377777.X 

20077777 X 
3 + 3777 77 X 

20 300154 X 
37077777 X 
35077777 X 
4 0 30 0 2 1 2 X 

14200000 
01000275.P 


8L0G0N 


SET READ 
SET CR 


CSDRET 


O 


-TVCON.-.- 

CSBUFF,XI 
-12-24 
1 2+1 
0 

T VCON 

TVIABLE,Xl 
TVCON 

2 4—---- 

T VTERMIN,XI 
CSDRET,X2 
OSNPSAyXl 
T V3L0CK 
*+3 

*■ + 2 . 

0 00 

.BLK----- 

PSA3LK,BLK 

„p —~ 

DSNPSA 

NTVWAIT 

TOC'LEAR. 

IMPURE,X2 
-G S B UF F- , X2. 

7 77 7 B 
FMCQDE 
DSNPM- 
1 ,PSA 
CSDRET 

8 IT21 
C R, PS A 

SETCR.--- 

* 

77 003 
C MODE 
OSNFM02 
0 ,PS A 

SETREAD. 

TVBLOCK,8LK 

CSDRET- 

0 ,8LK 
DSNS02 


IS THIS STATION INTERRUPT EXIT 

JU HP.IF.NOT. 

LOAD THE WORD WE READ FROM THE 
SCREEN AND GET THE UNIT NUMBER 
HAD THE NEXT THREE LINES BEEN 
IN THE COOE ON 11/14/71 THEY 
WOULD HAVE PREVENTED SOME CRASHES 
LOADTHEHIGHESTUNITNUMBER 
JUMP IF ILLEGAL 


FORM THE CS3 TERMINAL NUMBER 
SAVE THE RETURN ADDRESS 

SAVE THE EQUIPMENT NWMSE'R -- 

IS THIS THE PHANTOM TV 
JUMP TC ALLOW USER TO USE IT 

JUMP . IF NOT.PHANTOM. 

ENTER PHANTOMS TERM NUM8ER 
SAVETERMINAL. NUMBER .FORCREATE 

LOAD THE PSA ADDRESS 
INTOINDEX 


ALLOWOPERATIONTOPROCEED 
ENTER THE CONTROLLER NUMBER 
LOAD- THE W O RD W E READ AG AIN 
LOOK AT THE CHARACTERS WE READ 
SKIP IF A FILE MARK 

CHECK FOR LOGGED ON 
FILE MARK IGNORED IF NOT 
.LOAD.FILE.MARK.BIT...." 

-GO.SET THE.GR.WORD-.—.-.—. 


IS IT A C0NTRCL STATEMENT 
JUMP IF SC 

SKIP IF NO ONE LOGGED IN 

GO . SET .TB E RE A O.AT LOW E D .811. 

SKIP IT THE CHARACTERS ARE FOR 

T-H E PH A NT 0 M E LSE EX-IT— - 

THE CHARACTERS ARE FOR PHANTOM 


1,PS A SKIP IF PSA PRESENT 

8LOGON NO PSA 

0 9/117,AX 5/CMBIT S.ECHA,S 30G000E + CMBITS 

IQCLEAR 

CMC.Q.DE,.ES-A - _—. _____- -__ 

* +2 JUMP IF A REQUEST EXISTS 

CONTROLA 

ENCODE* PSA -.... INDICATE A USER CONTROL— A 

S YSCM,PSA CHECK FOR IN CONTROL MODE 

SETREAD ALL READY IN CONTROL MODE 

CONTROLA. . INDICATE A MANUAL ENTRY INTO CM 

CMQSET 

-SET-READ___-___-...—_____-. 


CS0RETyX2 

CREATE 

TVUNIT PLACE BOOS TOCB TYPE IN LUNLIST 

L UNLTST, PSA...~ ......■— ... 

8IT18 TV 31T 

S Y S C O D E, P-SA- .....ADD SYSTEM CODE TO SYSCO QE. 

CR,PS A LOAD THE CR WORD 

NBIT21 —————CLEAR FILE MARK ON SCREEN BIT. 

8IT19 SET READ ALLOWED BIT 

C R,PSA 


IMPURE,X2 
..TVCON_ 


RESTORE THE RETURN ADDRESS 
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00220 
.n nppi 

U 0 22 0 
5370 0 000 

5 0 inn .3 u 7 

P 

p.. 


240 

241 

. 2 42 . 

TVEXIT 

EQU 

TAI 

i n a . 

* 

X 3 

.QTATjlC . 

CONNECT CODE TO X3 

nnCF tutf r.fiWTon i cu Mfcn 



CD 

0 022 2 
00223 

03100303 

16300015 

P 


243 

244 


AZJ,ME 

xoi 

. .i H.I vJujA X.... 

CONSRCH 

153,X3 

.uv u j .i.rrxy—vv* n r ivv w t- wiv 114 . 4 ; u. . . . 

ANYTHING ELSE DONE 

GENERATE_NON-EXISTANT UNIT NUMBER 


CD 

0 0224 
00225 
00227 

4 7 0 U 0 2 7 2 
14600023 
14600026 

P ..... 


.2 45. 

246 

2 4 7 


ST I 

ISSUE 

ISSUE 

C ONE L AG,0 
(REOP) 

(STINT) 

ILtAK l tic r t'flu 

RELEASE INTERRUPT 

REENABLE STATION INTERRUPTS 



..00231. 

00232 

.oq?33. 

14300007 
20300347 
. 0 310 0 27?. 

P 

P... 


248 

249 

.25 0 . 


ENI 

LD A 

.A7,j , NF . 

7 ,X3 

STATUS,X3 

.r, ON F L AG. 

IS THERE ANYTHING ELSE TO DO 

.JUMP .TF. F D .... ..... 



O 

00234 

0270 G232 

0 G 235 

P 

P 


251 

252 

EXITING 

IJD 

EQU 

*-2,X3 
* 

.w v> i ! r—l i. J u . .. .. 



0 

0 0 23 5 
00236 
00237 

23 0 014 70 
05700001 
01077777 

P. 0 0 316 

X 

o.. ' 

. 2 53'. 

254 

255 


LOCH 

QSG 

UJP 

~.UIOFLAG........ 

1 

UNCON 

DO WE WANT TOEXIT BACKTOUIO 
SKIP IF SO 




00240 

00241 

....QQ?42 . 

.42001470 

77000000 
. n in n 0 2 45. 

P 00316 

.p... 

0 

2 56" 

257 

..2 5 A.. 

RES ETGO N 

SACK 

CON 

.u i p. 

UIOFLAG 

IMPURE, 10 

. ...T ..+.3 . 

CLEAR THE FLAG 

CONNECT TO THE UNIT 

.TG.N0-R.F-- RFJFCTF. 



O 

00243 

00244 

77100010 
14 00 0 000 



U* V# 

259 

2 60 


SEL 

NOP 

RESET,SELECT 

8 

TRY TO RESET THE SCREEN 

OONT WORRY ABOUT PROBLEMS 



O 

0 0 2 45 
00246 
00247 

4Y20 U 25 0” 

14200250 

01000237 

P 

X 


' 2 b 1 .... 

262 

263 


5 1 I 

ENI 

UJP 

j X 2 

* + 2 ,X 2 

UNCON 

SAVE THE RETURNADDRESS 

SET THE RETURN FOR UNCON 



.. 0 025 0 

00251 

"~T42GWO~0. 

01077777 

X 


2 64 

265 

.. 2 . 6 - 6 - . 


ENI 

UJP 

IMPU RE,X 2 . 

T VNE 

RESTORE THE RETURN ADDRESS 



O 





26 7 

268 

• .If.M V W K 51 VL 






O 





27 0 

271 

" ' nr v nr* v 'irHr ' nr ^ 

* 

* 

SECTION TO ISSUE CONTROLLER 

FUNCTION CODES 

* 

* 






.272 

273 

. 274_ 

” *" 

.JSL. __ 

THIS CODE 

1IMT Ti TT 

WILL CONNECT TO DIFFERENT UNITS ON THE CONTROLLER 

FT MAI 1 V TF FI IF F THE FIIMPT T H M P O, n F OR 1 IN TT 1 TWO. 

*. . 


O 





f •*T~- 

275 

276 

* 

MIL LIS ECO NO SHAVE - PASS ED " "" 


* 

* 


o 


0 0 252 

_£__..._ 


278 

279 

v-r rv r t t v vr vttt t r r v r ttvt v t v-r t t t r t vr t wv rv tv v-t v v v t t v t v v v v t v vt vt ttt tt vt tttttt 

REJ EQU * 


.00252. 

00253 
.....0 0254 

1510 000 I. 

17307017 
.4730 0 2 55 

. p.. 


28 0 

261 

. 28 2 _ 


INI 

ANI 

..SIT. 

1 , X3 

0 70176,X3 
* +1 . X 3 




o 

00255 

00256 

, - - ,, , . n n O < 

77 00 0000 
14000000 



283 

284 


CON 

NOP 

IMPURE,10 

0 

TRY ANOTHER CONNECT CODE 



o 

Uu 2 b / 
00260 
00261 

5 3 010 0 22 
15577775 
03700264 

P 


2 85“ 
286 

287 


TSTQ ~ 

IN 0, S 

AQJ,LT 

. 2 23 ■ - 

-2 

SEL 

GET CLOCK AND CHECK TO 3Eli 

IF WE HAVE WAITED LONG 

ENOUGH 




. 0 0262. 

0 0263 

0 0 264 

.77100 0 0 0 

01000252 
. 0100 00 00 

P 


. zw a. 

289 

_ 290.. 

..rso"F. 

. S-EL. 

"SEX . 

UJP 

p . 

.IWU'RE,.SELECT. 

REJ 

. TNPyDf .. 

ISSUE THE I/O. FUNCTION . 

SAD NEWS, REJECTED 
. TO IS S-U-F.. SELF CT COM M' A NOS.- _ . 



o 

00265 

0 0266 

0 0267 

44 00 0 262 
53020022 
“01000252 

P 

P.- 


291 

29? 

29-3"—~ 


SWA 

TMA 

-UJP. 

I SUE 

223 
“REJ ■ 

SAVE FUNCTION CODE 

GET THE CURRENT CLOCK 
“. TRY- THE.SELECT' ...-..... . 




q 2 


a 


o 9 



C ! ■ 


ID. 

O 
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.'.0 0270.P.295.C CM. .EQU 

00270 35100347 P 296 S3A 

.00271.4010 0 347 .P..29 7.STA. 

00272 04000Q00 298 CONFLAG ISE 

00273 01200000 299 UJP 

0 027 4 47 20 0 272 p 30 0“— ——— 

00275 1410OU00 301 TVCON ENI 

00276 14701750 302 ENQ 

00277. 1430 0277.P.30 3...■ .ENI 

00300 01077777 X 304 UJP 

00 301.14-00 0 000.-...30 5. NOR. 

00302 01200000 306 UJP 

00303 P 30 7 CONSRCH EQU 

0 0303. 1430 0 003 ...30 8'- . 

00304 14600010 309 ENA 

00305 14700010 310 ENQ 

. 0 03Q6 - p. 311.3RC HLOO P EQU 
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